home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / MacApp Documentation / MacApp AppleLink Messages / MacApp.Tech$ May 89 / U0000-UPi < prev    next >
Encoding:
Text File  |  1989-03-26  |  2.0 KB  |  61 lines  |  [TEXT/MPS ]
  1. UNIT UPict;
  2.  
  3. {
  4.     Copyright © 1988 David A. Wilson. All Rights Reserved.
  5.     PasRef MPict.p UPict.p UPict.inc1.p  -ni -nu -o -nototal -nolex > Pict.pasref
  6. }
  7.  
  8. INTERFACE
  9.  
  10. USES
  11.     UMacApp,
  12.     ToolUtils, Resources, Fonts; 
  13.         
  14. CONST
  15.     kDocFileType    =    'PICT';
  16.  
  17. {==========================================================================}
  18. TYPE
  19.     TPictDocument = OBJECT(TDocument)
  20.         fPictView:        TPictView;
  21.         fPictHandle:    PicHandle;
  22.         fPictSize:        Rect;
  23.         PROCEDURE TPictDocument.IPictDocument(itsCreator: OSType);
  24.         PROCEDURE TPictDocument.Free; OVERRIDE;
  25.         PROCEDURE TPictDocument.DoNeedDiskSpace(
  26.                                 VAR dataForkBytes, rsrcForkBytes: LongInt); OVERRIDE;
  27.         PROCEDURE TPictDocument.DoRead(
  28.                     aRefNum: INTEGER; rsrcExists, forPrinting: BOOLEAN); OVERRIDE;
  29.         PROCEDURE TPictDocument.DoWrite(aRefNum: INTEGER; makingCopy: BOOLEAN); OVERRIDE;
  30.         FUNCTION  TPictDocument.PictureHandle: PicHandle;
  31.         FUNCTION  TPictDocument.PictureSize: Rect;
  32.         PROCEDURE TPictDocument.ReadPictHeader(fileRefNum: INTEGER);
  33.         PROCEDURE TPictDocument.ReadPictData(fileRefNum: INTEGER);
  34.         PROCEDURE TPictDocument.WritePictHeader(fileRefNum: INTEGER);
  35.         PROCEDURE TPictDocument.WritePictData(fileRefNum: INTEGER);
  36. {$IFC qDebug}
  37.     PROCEDURE TPictDocument.Fields(PROCEDURE DoToField(
  38.                 fieldName: Str255; fieldAddr: Ptr; fieldType: INTEGER)); OVERRIDE;
  39. {$ENDC}
  40.         END;
  41.  
  42. {---------------------------------------------------------------------------------}
  43.     TPictView = OBJECT(TView)
  44.         fPictDocument:    TPictDocument;
  45.         PROCEDURE TPictView.IPictView(itsDocument: TPictDocument);
  46.         PROCEDURE TPictView.IRes(itsDocument: TDocument;
  47.                                  itsSuperView: TView; VAR itsParams: Ptr); OVERRIDE;
  48.         PROCEDURE TPictView.CalcMinSize(VAR minSize: VPoint); OVERRIDE;
  49.         PROCEDURE TPictView.Draw(area: Rect); OVERRIDE;
  50. {$IFC qDebug}
  51.         PROCEDURE TPictView.Fields(PROCEDURE DoToField(
  52.                 fieldName: Str255; fieldAddr: Ptr; fieldType: INTEGER)); OVERRIDE;
  53. {$ENDC}
  54.         END;
  55.  
  56. {==========================================================================}
  57. IMPLEMENTATION
  58.  
  59. {$I UPict.inc1.p}
  60.  
  61. END.